home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 71 / 071.d81 / stretch boot (.txt) < prev    next >
Encoding:
Commodore BASIC  |  1990-01-01  |  4.9 KB  |  119 lines
  1. 100 dima$(47):gosub130:hd$="":print"[147][159]":rv=.:bx=.:ex=40
  2. 110 by=.:bd=19:bc=7:gosub150:gosub220:bx=1:ex=39:by=21:bd=1:bc=3:gosub150
  3. 120 ln$="                                      ":x$=chr$(13):cu=3:goto360
  4. 130 poke53280,.:poke53281,.:ba$="[192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192]"
  5. 140 a$="[221][157][221][157][221][157][221][157][221][157][221][157][221][157]":fori=1to6:bd$=bd$+a$:next:gosub790:return
  6. 150 oc=peek(646):poke646,bc:rv$="":ifrvthenrv$=""
  7. 160 poke211,bx:poke214,by:sys58732:printrv$"[176]"left$(ba$,ex-bx-2)"[174][157]";
  8. 170 printrv$left$(bd$,bd*3):printrv$spc(bx)"[145][173]"left$(ba$,ex-bx-2)"[189]"
  9. 180 poke211,bx:poke214,by+1:sys58732:printrv$left$(bd$,bd*3)"":poke646,oc
  10. 190 rv=.:return
  11. 200 printleft$(hd$,23)""left$(ln$,36)
  12. 210 print"[158]"left$(hd$,23)spc(20-len(ms$)/2)ms$"[159]":return
  13. 220 fori=217to242:pokei,peek(i)or128:next:return
  14. 230 ms$="[209]uit?  [193]re you sure?  ([217]/[206])":gosub200:poke198,.
  15. 240 geta$:ifa$<>"y"anda$<>"n"then240
  16. 250 ifa$="y"thenreturn
  17. 260 run
  18. 270 rem -------------------------------
  19. 280 open15,8,15,"r0:"+fo$(i%)+"="+fo$(i%):input#15,er:close15
  20. 290 ifer<>63thenprint"[147]"chr$(142)chr$(9):end
  21. 300 ifi%=3then330
  22. 310 sys57812"modify",8,0:poke780,0:poke781,64:poke782,192:sys65493:sys49216
  23. 320 sys57812"spr data",8,0:poke780,0:poke781,64:poke782,192:sys65493
  24. 330 l$=fo$(i%):q$=chr$(34):gosub530
  25. 340 print"[144]load"q$l$q$",8":print"run":
  26. 350 poke631,13:poke632,13:poke198,2:end
  27. 360 fi$(1)=" [210]ead  [201][206][211][212][210][213][195][212][201][207][206][211] "
  28. 370 fo$(2)="stretch":fo$(3)="hello connect"
  29. 380 fi$(2)=" [208]lay the game ":i%=1:fi$(3)=" [210]eturn to [204][207][193][196][211][212][193][210] "
  30. 390 ms$="[195]ursor to select/then press [210][197][212][213][210][206]":gosub200
  31. 400 print"[158][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164]"
  32. 410 print"[152] [211][160][212][160][210][160][197][160][212][160][195] [200]  -  [207][208][212][201][207][206][211] "
  33. 420 print"[158][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][158]"
  34. 430 poke214,6:print:fori=.to3:poke646,3:ifi%=ithenpoke199,1:poke646,7
  35. 440 printspc(20-len(fi$(i))/2)fi$(i):print:next
  36. 450 geta$:ifa$<>"[145]"anda$<>""anda$<>chr$(13)then450
  37. 460 ifa$="[145]"theni%=i%-1:ifi%<1theni%=3
  38. 470 ifa$=""theni%=i%+1:ifi%>3theni%=1
  39. 480 ifa$<>chr$(13)then430
  40. 490 ifi%=1then660
  41. 500 ifi%=3thengosub230
  42. 510 ifi%then280
  43. 520 return
  44. 530 ifi%=2thenprintchr$(14)
  45. 540 print"[147][159] [204]oading "fo$(i%)"...":ifi%<>2thenreturn
  46. 550 poke214,15:print:print"  [155][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][152]"
  47. 560 fori=1to3:print"                                      ":next
  48. 570 print"        [208]ublished on [204][207][193][196][211][212][193][210] #71     "
  49. 580 print"      [211]ubscriptions 1-800-831-2694    "
  50. 590 print"         [193] [211][207][198][212][196][201][211][203] [208]ublication       "
  51. 600 print"                                      "
  52. 610 print"  [151][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185]"
  53. 620 au$="[211] [212] [210] [197] [212] [195] [200]":poke214,17:print
  54. 630 printspc(20-len(au$)/2)"[152]"au$
  55. 640 au$="[194]y [203]en [203]owalewski   ([195]) 1990":poke214,18:print
  56. 650 printspc(20-len(au$)/2)"[152]"au$"":return
  57. 660 print"[158][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164]"
  58. 670 print"[152] [211] [212] [210] [197] [212] [195] [200] - [201]nstructions "
  59. 680 print"[158][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163]"
  60. 690 print"                            "
  61. 700 it=.:c$="[197]nd of [212]ext"
  62. 710 poke214,3:print:forz=ittoit+15:print""a$(z):next
  63. 720 ms$="[195]ursor [213][208]/[196][207][215][206] to page:[205] for [205]enu":gosub200
  64. 730 getz$:ifz$<>""andz$<>"[145]"andz$<>"m"andz$<>"[205]"then730
  65. 740 ifz$=""thenit=z:ifz>46thenit=it-16:ms$=c$:gosub200:gosub780:goto720
  66. 750 ifz$="[145]"thenit=it-16:ifit<.thenit=.:ms$=c$:gosub200:gosub780:goto720
  67. 760 ifz$="m"orz$="[205]"thenrun
  68. 770 goto710
  69. 780 fortt=.to20:poke54296,15:poke54296,.:next:return
  70. 790 fori=.to47:reada$(i):next:fori=54272to54296:pokei,.:next:return
  71. 800 data"[152]   [212]his board game is for one to four "
  72. 810 data"players. [212]he object is to retire. [197]ach"
  73. 820 data"player represents a family of four.   "
  74. 830 data"[197]ach time past [208][193][217][196][193][217][152] earns you a     "
  75. 840 data"monthly paycheck. [217]ou begin with $5[207][207] "
  76. 850 data"each in cash, checks and savings. [217]ou "
  77. 860 data"have a $1[207][207][207] credit limit. [212]o retire  "
  78. 870 data"early, you need a car, lot, cottage & "
  79. 880 data"boat. [197]ach requires 1[207]% cash down. [217]ou"
  80. 890 data"need a phone. [217]ou need one of each    "
  81. 900 data"item at the [195][204][207][212][200][197][211][152], [198][213][210][206][201][212][213][210][197][152] and    "
  82. 910 data"[193][208][208][204][201][193][206][195][197][211] [152]stores. [212]hese can be bought"
  83. 920 data"by cash, check or charge. [193]ll else is "
  84. 930 data"paid out of cash, which is shown while"
  85. 940 data"moving. [193] [156][208][201][206][203][152] cash amount means a    "
  86. 950 data"negative cash balance.                "
  87. 960 data"[152]   [207]n [208][193][217][196][193][217][152], you get your pay & your "
  88. 970 data"mortgage payment is made. [217]ou're asked"
  89. 980 data"to pay health insurance. [201]f you have a"
  90. 990 data"car, lot or cottage, you can make a   "
  91. 1000 data"payment. [205]iss 6 car payments and you  "
  92. 1010 data"lose the car. [195]harge payments are made"
  93. 1020 data"here. [201]nterest is added after payment."
  94. 1030 data"[201]nterest's added quarterly to savings."
  95. 1040 data"[213]tility bills will be generated. [212]axes"
  96. 1050 data"will be noted. [217]ou may be given the   "
  97. 1060 data"opportunity to transfer funds between "
  98. 1070 data"accounts. [201]f your cash is negative,   "
  99. 1080 data"money will be taken from savings and  "
  100. 1090 data"checking. [201]f all accounts are drained,"
  101. 1100 data"the game ends. [217]ou will be told how   "
  102. 1110 data"many items you must still buy to win. "
  103. 1120 data"[152]   [207]n [201][206][195][207][205][197] [212][193][216][152] taxes are paid. [194]uy a"
  104. 1130 data"phone & pay bill on [208][200][207][206][197] [195][207][205][208][193][206][217][152]. [208]ay"
  105. 1140 data"utilities on respective squares. [194]oat "
  106. 1150 data"payments are made on [204][193][203][197] [204][207][212][211][152]. [199]et an"
  107. 1160 data"[197][196][213][195][193][212][201][207][206][152] to earn pay raises. [198]or a   "
  108. 1170 data"game demo, pick the number of players "
  109. 1180 data"you wish and hit [210][197][212][213][210][206][152] alone, instead"
  110. 1190 data"of entering a name. [212]his lets the     "
  111. 1200 data"computer play (you may play against   "
  112. 1210 data"the computer). [215]hen asked to roll,    "
  113. 1220 data"press _[146][152] to end the game, press ^[146][152] for  "
  114. 1230 data"financial status or any key to roll.  "
  115. 1240 data"[207]n doubles, you may split the roll.   "
  116. 1250 data"[207]nly completed games (someone retires)"
  117. 1260 data"can reach [159][200]igh [211]core[152] status. [158][211][212][210][197][212][195][200]  "
  118. 1270 data"[152]could take several hours to play.     "
  119.